www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\js\doajax.asp
<!--#include file="../Include/liangconn.asp"--> <% Dim RetCode,RetDes function CreateXML() Dim OutStr OutStr="<?xml version=""1.0"" encoding=""gb2312""?>"&vbcrlf OutStr=OutStr&"<ReturnStr>"&vbcrlf OutStr=OutStr&"<RetCode>"&RetCode&"</RetCode>"&vbcrlf OutStr=OutStr&"<RetDes>"&RetDes&"</RetDes>"&vbcrlf OutStr=OutStr&"</ReturnStr>" Response.ContentType="text/xml" Response.write OutStr end function if request("action")="" then RetCode="0001" RetDes="异常错误" CreateXML() response.end end if select case Lcase(trim(request("action"))) case "hit" dim Src_ID Src_ID=request("Src_ID") if Session("_WUserID") = "" then '判断是否登入 RetCode="0002" RetDes="您未登陆,DIG的信息无法长久保存" else Is_Hit_Temp =Conn.Execute("Select Count(Hit_ID) From Liangjing_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID="&Session("_WUserID"))(0) if Is_Hit_Temp <= 0 then '判断是否顶完(避免开多个窗口的问题) Sql_Hit = "Insert into Liangjing_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)" Sql_Hit = Sql_Hit & "Values(" & src_id & ",'" & Session("_WUserID") & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')" Conn.Execute(Sql_Hit) Conn.Execute("Update Liangjing_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id) RetCode="0000" RetDes="DIG成功" else RetCode="0003" RetDes="已顶" end if end if case else RetCode="0001" RetDes="异常错误" end select conn.close set conn=nothing CreateXML() %>